home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / door / twview93.zip / UNKNOWN.INC < prev    next >
Text File  |  1992-05-03  |  773b  |  28 lines
  1. procedure unknownSectors;
  2. { Are there sectors that are not anchored?  Print out a list. }
  3. var
  4.   display : boolean;
  5.   Aware : array [ sector ] of boolean;
  6.   i     : sector;
  7.   t     : warpindex;
  8. begin
  9.   for i := 1 to MaxSector do
  10.     aware[ i ] := false;
  11.   for i := 1 to MaxSector do
  12.     if space.sectors[i].number <> Unexplored then
  13.       begin
  14.         for t := 1 to space.sectors[i].number do
  15.           aware[ space.sectors[i].data[t] ] := true;
  16.         aware[ i ] := true;
  17.       end; {for if}
  18.   write('Here are the ''unattached'' sectors: ');
  19.   display := false;
  20.   for i := 1 to MaxSector do
  21.     if not aware[ i ] then
  22.       begin
  23.         write( i : 5 );
  24.         display := true;
  25.       end;
  26.   if not display then write(' NONE!');
  27.   writeln;
  28. end;